﻿<!-- #include file="mymin.asp" -->
<%Call Head()

w "<card title=""回复留言""><p>"

dim id,p
id=request.QueryString("id")
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1

dim rs,agent,name
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from 74hu_guest where ID=" & ID
rs.open rsstr,myconn,1,1
if not rs.eof then
	agent=rs("agent")
	name=rs("name")
	If IsNumeric(agent) Then
		name ="会员：<a href=""../bbs/detail.asp?sid="&sid&"&amp;id="&agent&""">"&agent&"</a><br/>"
		agent = ""
	Else
		name = "网友："&name&"<br/>"
		agent ="型号："&agent&"<br/>"
	End If
	w "标题："&nowml(rs("title"))&"<br/>"&_
		name &_
		"内容："&nowml(rs("text"))&"<br/>"&_
		"时间：" & rs("HU_time") & "<br/>"&_
		"联系：" & nowml(rs("lianxi")) & "<br/>"&_
		agent &_
		"----------<br/>"&_
		"回复："&nowml(rs("retext"))&"<br/>"&_
		"时间："&rs("retime")&"<br/>"&_
		"----------<br/>"
%>
<input name="retext<%=time_r%>" type="text" format="*M" emptyok="true" maxlength="500" value='<%=nowml(rs("retext"))%>'/><br/>
<anchor>[回复留言]
<go href="resave.asp?sid=<%=sid%>" method="post" accept-charset="utf-8">
<postfield name="id" value="<%=id%>"/>
<postfield name="p" value="<%=p%>"/>
<postfield name="retext" value="$(retext<%=time_r%>)"/>
</go>
</anchor><br/>
<%
Else
	w "留言已删除!<br/>"
end if
rs.close
set rs=nothing

%>----------<br/>
<a href="index.asp?sid=<%=sid%>&amp;p=<%=p%>">[留言管理]</a><%Call Last%>